Option explicit

ReadBarcode "image1.tif"

Private Sub ReadBarcode(sImage)

   'Create CiServer object:

  Dim Ci

  Set Ci = CreateObject("ClearImage.ClearImage")

    'Create an CiImage object:

  Dim Image

  Set Image = Ci.CreateImage

   'Open image file:

  Image.Open sImage, 1

   ' Create processing object.

   '  For example 1D Barcode reader

  Dim Bc

  Set Bc = Ci.CreateBarcodePro

   ' Attach CiImage object

  Bc.Image = Image

   'Configure processing properties (if needed):

  Bc.AutoDetect1D = -1

   'Execute processing object methods

   ' (modify image or perform measurements):

  Bc.Find

   'Process results:

  Dim Barcode

  For Each Barcode In Bc.Barcodes

     ' Do something with Barcode. For example:

    MsgBox Barcode.Text

  Next

    ' Cleanup

  Set Image = Nothing

  Set Bc = Nothing

  Set Ci = Nothing

End Sub